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LL AAAAAA BBBBBBBB IIIII] 000000 PPPPPPPP EEEEEEEEEE AAAAAA KK KK 
LL AAAAAA BBBBBBBB III! 000000 PPPPPPPP EEEEEEEEEE ABAAAA Kk KK 

LL AA AA BB BB I] 00 PP PP EE AA KK KK 

LL AA AA BB BB I] 00 00 PP PP EE AA AA KK KK 

LL AB AA BB BB II 00 00 PP PP EE AA AA KK KK 

LL AA AA BB BB I] 00 00 PP PP EE AA AA KK K 

LL AA AA ®8888888B I] 00 00 PPPPPPPP EEEEEEEE AA AA KKKKKK 

LL BBBBBBBB I] 00 00 PPPPPPPP EEEECEEE AA AA KKKKKK 

LL AAAAAAAAAA §BB I] 00 00 PP EE AAAAAAAAAA KK KK 

LL AAAAAAAAAA I] 00 0O PP EE AAAAAAAAAA KK KK 

LL AA AA BB BB I] 00 00 PP EE AA AA KK KK eeee 
LL AA AA BB BB I] 00 00 PP EE AA AA KK KK eee 
LLLLLLLLLL AA AA B88888B8B III! 000000 PP EEEEEEEEEE AA AA KK KK cece 
LLLLLLLLLL AA AA B8BBBBBB IIIIII 000000 PP EEEEEEEEEE AA AA KK KK cece 
FFFFFFFFFF 000000 RRRRRRRR ; 

FFFFFFFFFF 000000 RRRRRRRR 

FF 00 00 RR RR 

FF 00 OO RR RR 

FF 00 00 RR RR 

FF 00 0O RR RR 

FFFFFFFF 00 O00 RRRRRRRR 

FFFFFFFF 00 00 RRRRRRRR 

FF RR RR 

FF 00 00 RR RR 

FF 00 00 RR RR 

FF 00 RR RR 

FF 000000 RR RR 

FF 000000 RR RR 
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‘File: LABIOPEAK.FOR 
} Version ‘'Vv04-000' 


SRR eR ERA A AREA AERA EERE AAA ERA AAEEAEEEEE EEE RETR E EEE EEE 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 

® 

® 

® 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
i® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. « 
'* & 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION, . 
* 

w& 

& 

® 

® 

® 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee RRR EERE REAR ERAAEE EEE AERA REAR RAAAAAAAEEERERAAEAE RETA TEE EEE 
' 


Program LABIO_PEAK 
! This routine continuously samples channel #1 search for peaks. 
' The sample rate is 1/TIC. It re orts the PEAK height and position 
i to Logical channel *LABIO_PEAK_DATA' 


Include *LABCHNDEF .FOR' 
Parameter 5 RARE = LABIOLPEAK® 


Character*130 RETUR 
Character*15 cS 


Character*24 DATE_TIME 

Logical*4 SuctESS: 7 SYSSCREMBX 

Parameter AD SY aes = 1 ' Channel Number 
Parameter AD_RATE = 1 ' Rate 

Parameter AD_BUF “SIZE = 512 , ! Buffer Size 


Parameter MAX_PEAKS = 10 
Integert4 ITABLE (10), INLAST, f. fre. OUTPUT (2,MAX_PEAKS), IDIMO,NPEAKS 
Integert2 INPUT(AD _BUF _SIZE* 


Data ITABLE/10*0/ 
Data INLAST,INPTR,IDIMO,NPEAKS/0,0,MAX_PEAKS,0/ 


Map To the Global Data Base and the event flags 
Call LABIO_INIT(O) 
i Open Mailbox to LABIO_CONNECT 
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Open ( Unit = 1, Name = "LABIO_CONNECT® , Type = ‘OLD' ) 
! Create Mailbox for response from LABIO_CONNECT 


SUCCESS = SYSSCREMBX(,MBX CHANNEL, ,,XVal('FDOO'x) , »MBX NAME) 
If (.mot. SUCCESS ) ‘CalT FATAL_ERROR( SUCCESS, ‘CREATING MAILBOX') 


i Open via FORTRAN 
Open ( Unit = 2, Name = MBX_NAME, Type = ‘OLD’ ) 
i Deassign the channel assigned when we created it 
' Call SYS$DASSGN( %Val(MBX_CHANNEL) ) 
Open A Data File 
Open( Unit = 3, Name = ‘LABIO_PEAK_DATA’ ,Type = ‘NEW’ ) 
! Connect to the LABIO system 


COMMAND = ‘CONNECT’ 
Write(1,100) COMMAND ,MBX_NAME 


! Wait for Response from LABIO system 


Read(2,200) RETURN_CODE ,RETURN 
If¢ RETURN_CODE .ne. 0 5 Go To 99 ‘Failed to connect! 


Allocate Channel AD_CHANNEL 
Rate = AD_RATE 
Buffer size = AD_BUF_SIZE 


COMMAND = ‘ALLOCATE’ 

Write(1,400) COMMAND,AD_CHANNEL ,AD_RATE,AD_BUF_SIZE,0 
Read(2,200) RETURN_CODE RETURN 

If¢ RE TURN_CODE ne. 0 5 Go To 99 'Failed to allocate! 


Enable data acqusition by setting event flag ACTIVITY and NOTIFY 


Call SYSSSETEF (Xval(EF_ACTIVITY_OFF+AD_ CHANNEL) ) 
Call SYS$SETEF (Val (EF -NOTIFY_OFF+AD_CRANNEL) ) | 


Now, wait for buffer to be filled, event flag STATUS will be set 
! when data are ready 


5 Call SYSSWAITFR( ZVal(EF_STATUS_OFF+AD_CHANNEL) ) | 
! Buffer is filled, get the buffer index 

INDEX = AD_BLOCK(7,AD_CHANNEL) 
Move data from data buffer to peak processing buffer 
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Do 10 J AD_BUF _SIZE 
10 OPUS CT FINL RSTO = BRYA BUFFER(I, INDEX ,AD_ CHANNEL) 
INLAST = INLAST + AD_BOF_S 


Clear the STATUS event flag and notify the 1/0 process 
1 DEBUG) “oat SYSSCLREF( XVal(EF_STATUS_OFF+AD_CHANNEL) ) 
write (3,600) (DATA_BUFFER(I,INDEX,AD_CHANNEL) ,1=1,AD_BUF_SIZE) 


; Call the peak processing routine 


is Call PEAK(CITABLE, INPUT, INLAST, INPTR,OUTPUT ,MAX_PEAKS ,NPEAKS) 
! Report the peak info 
PEAK_SWITCH = NPEAKS ‘Remember the peak switch 
If( NPEAKS .ne. 0 ) e have some peaks 
1f( NPEA a w(t. b } ‘Peas « max “PEAKS 'WE have the max 
Do 20 1 = NPEAK 
TOTAL peaKé = TOTAL_PEAKS + 1 !One more 
20 : nate: 500) TOTAL ‘BEAK: (OUTPUT (J, 1), = 1,2) 


NPEAKS = 0 Reset the potater 
If( PEAK_SWITCH .Lt. 0 ) Go To 18 ‘More peaks to find 


! Move any unprocessed data to the beginning of the input array 


If ¢ CINPTR iat. ior gg2s, CINPTR .Lt. INLAST) ) Then 
30 INPUT(I) = INPUT INPTR+] )  '!Move the data 
INLAST = I ‘Last element stored 


Else 
INLAST 

End If 

INPTR = 0 ‘Last element processed 


! Go wait for more data 
Go To § 


' ALL dune, Call the exit routine 
Call ExIT(1) ‘Exit 


Format(' ° she A) 
Format (12,A) 
Format(' A,41) 
Format(3110)- 
Format (15) 


End 
'CEnd of File) 


Sessa 3 | 
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